Alles Voor Internet / Tout Pour Internet/alles voor internet.iso/MacInternet™/Net/Utilities/Seer family 2.0/pdl.lsp

Lisp/Scheme | 1987-11-18 | 8.1 KB | 377 lines | [TEXT/????]

(pdl_struct pdl_hdr
 (pdl_field paknm 32 dec)
 (pdl_field dat 32 noprint)
 (pdl_field time 32 dec)
 (pdl_field err 16 hex)
  (pdl_name noerr 0x0 nil nil)
  (pdl_name overr 0x1 nil nil)
  (pdl_name noabort 0x2 nil nil)
  (pdl_name crc 0x3 nil nil)
 (pdl_field siz 16 dec)
 (pdl_field hwcrc 16 hex)
)

(pdl_struct pdl_root
 (pdl_field lapdst 8 hex)
 (pdl_field lapsrc 8 hex)
 (setq reg4 0)
 (pdl_field lapty 8 hex :counter cnt1)
  (pdl_name lapENQ 0x81 nil nil :reject)
  (pdl_name lapACK 0x82 nil nil :reject)
  (pdl_name lapRTS 0x84 nil nil :reject)
  (pdl_name lapCTS 0x85 nil nil :reject)
  (pdl_name sddp 0x1 sddp reg4 :on_scope)
  (pdl_name lddp 0x2 lddp reg4 :on_scope)
  (pdl_name mazewp 0x30 mazewp reg4)
 (funcal reg4)
)

(pdl_struct sddp
 (pdl_field 0 6 hex)
 (pdl_field ddplen 10 dec)
 (pdl_field dsok 8 dec)
 (funcal ???)
 (pdl_field ssok 8 dec)
 (funcal ???)
 (pdl_field ddpty 8 noprint :value_to reg3)
 (funcal ???)
)

  (pdl_name RTMPsok 1 nil nil)
  (pdl_name NISsok 2 nil nil)
  (pdl_name ECHOsok 4 nil nil)
  (pdl_name ZIPsok 6 nil nil)
)

 (setq reg4 0)
 (pdl_field ddpty 8 dec :counter cnt2 :value_from reg3)
  (pdl_name RTMPresp 1 RTMPresp reg4)
  (pdl_name NBP 2 NBP reg4 :on_scope)
  (pdl_name ATP 3 ATP reg4 :on_scope :reject)
  (pdl_name EP 4 EP reg4)
  (pdl_name RTMPreq 5 RTMPreq reg4 :on_scope)
  (pdl_name ZIP 6 ZIP reg4)
  (pdl_name ip 22 ip reg4 :on_scope)
  (pdl_name arp 23 arp reg4 :on_scope)
 (funcal reg4)
)

(pdl_struct RTMPresp
 (pdl_field sndnet 16 dec)
 (pdl_field idlen 8 dec :value_to reg1)
 (funcal spcl0)
 (pdl_field 0 2 dec :size_from reg2)
 (pdl_field sndid 1 dec :size_from reg1)
 (loope 'RTMPresp_item)
 (thats_all)
)

(pdl_struct RTMPresp_item
 (pdl_field netn 16 dec)
 (pdl_field dist 8 dec)
)

(pdl_struct NBP
 (pdl_field NBPty 4 dec)
  (pdl_name BrRq 1 nil nil)
  (pdl_name LkUp 2 nil nil)
  (pdl_name Reply 3 nil nil)
 (pdl_field count 4 dec :value_to reg1)
 (pdl_field id 8 dec)
 (loopc reg1 'nbp_item)
 (thats_all)
)

(pdl_struct nbp_item
 (pdl_field enet 16 dec)
 (pdl_field enod 8 dec)
 (pdl_field esok 8 dec)
 (funcal ???)
 (pdl_field enumb 8 dec)
 (pdl_field Obj 0 cnt_str)
 (pdl_field Typ 0 cnt_str)
 (pdl_field Zon 0 cnt_str)
)

(pdl_struct ATP
 (pdl_field func 2 dec)
  (pdl_name TReq 1 nil nil)
  (pdl_name TResp 2 nil nil)
  (pdl_name TRel 3 nil nil)
 (pdl_field XO 1 dec)
 (pdl_field EOM 1 dec)
 (pdl_field STS 1 dec)
 (pdl_field 0 3 dec)
 (pdl_field bm_seq 8 hex)
 (pdl_field tid 16 hex)
 (pdl_field usr 32 hex)
)

(pdl_struct EP
 (pdl_field epty 8 dec)
  (pdl_name req 1 nil nil)
  (pdl_name epreply 2 nil nil)
)

(pdl_struct RTMPreq
 (pdl_field cmd 8 hex)
  (pdl_name request 0x1 nil nil)
 (thats_all)
)

(pdl_struct ZIP
 (setq reg4 0)
 (pdl_field zipty 8 dec)
  (pdl_name query 1 @Å reg4)
  (pdl_name zreply 2 @Å reg4)
  (pdl_name godown 3 @Å reg4)
  (pdl_name goup 4 @Å reg4)
 (pdl_field count 8 dec :value_to reg5)
 (funcal reg4)
)

 (loopc reg5 'zipqry_item)
 (thats_all)
)

(pdl_struct zipqry_item
 (pdl_field net 16 dec)
)

 (loopc reg5 'zipreply_item)
 (thats_all)
)

(pdl_struct zipreply_item
 (pdl_field net 16 dec)
 (pdl_field nam 0 cnt_str)
)

 (thats_all)
)

 (pdl_field 0 16 dec)
 (pdl_field nam 0 cnt_str)
 (thats_all)
)

(pdl_struct ip
 (pdl_field vers 4 dec)
  (pdl_name IPv4 4 nil nil)
 (pdl_field ihl 4 dec)
 (pdl_field precd 3 dec)
  (pdl_name net_ctl 7 nil nil)
  (pdl_name i_net_ctl 6 nil nil)
  (pdl_name critic 5 nil nil)
  (pdl_name flash_over 4 nil nil)
  (pdl_name flash 3 nil nil)
  (pdl_name immediate 2 nil nil)
  (pdl_name priority 1 nil nil)
  (pdl_name routine 0 nil nil)
 (pdl_field delay 1 dec)
  (pdl_name dnormal 0 nil nil)
  (pdl_name dlow 1 nil nil)
 (pdl_field through 1 dec)
  (pdl_name tnormal 0 nil nil)
  (pdl_name thigh 1 nil nil)
 (pdl_field reli 1 dec)
  (pdl_name rnormal 0 nil nil)
  (pdl_name rhigh 1 nil nil)
 (pdl_field 0 2 dec)
 (pdl_field len 16 dec)
 (pdl_field id 16 dec)
 (pdl_field 0 1 dec)
 (pdl_field DF 1 dec)
  (pdl_name may 0 nil nil)
  (pdl_name dont 1 nil nil)
 (pdl_field MF 1 dec)
  (pdl_name last 0 nil nil)
  (pdl_name fmore 1 nil nil)
 (pdl_field frago 13 dec)
 (pdl_field live 8 dec :value_to reg6)
 (setq reg6 0)
 (pdl_field ipty 8 dec :counter cnt3)
  (pdl_name tcp 6 tcp reg6)
  (pdl_name ICMP 1 icmp reg6)
  (pdl_name UDP 17 udp reg6)
 (pdl_field hcks 16 dec)
 (pdl_field sadr 32 ip_addr)
 (pdl_field dadr 32 ip_addr)
 (funcal reg6)
)

(pdl_struct tcp
 (pdl_field src_port 16 dec)
 (pdl_field dst_prot 16 dec)
 (pdl_field seq 32 dec)
 (pdl_field ackn 32 dec)
 (pdl_field doffs 4 dec)
 (pdl_field 0 6 dec)
 (pdl_field URG 1 dec)
 (pdl_field ACK 1 dec)
 (pdl_field PSH 1 dec)
 (pdl_field RST 1 dec)
 (pdl_field SYN 1 dec)
 (pdl_field FIN 1 dec)
 (pdl_field win 16 dec)
 (pdl_field cks 16 hex)
 (pdl_field urgp 16 hex)
)

(pdl_struct icmp
 (setq reg4 0)
 (pdl_field icmpty 8 dec :value_to reg4)
  (pdl_name echo_rply 0 icmp_echo reg4)
  (pdl_name dst_unreach 3 dst_unreach reg4)
  (pdl_name src_quence 4 src_quench reg4)
  (pdl_name redirect 5 icmp_redirect reg4)
  (pdl_name echo_req 8 icmp_echo reg4)
  (pdl_name time_exceded 11 icmp_timex reg4)
  (pdl_name bad_param 12 bad_param reg4)
  (pdl_name timestamp_req 13 icmp_time reg4)
  (pdl_name timestamp_rply 14 icmp_time reg4)
  (pdl_name icmp_info_req 15 icmp_info reg4)
  (pdl_name icmp_info_rply 16 icmp_info reg4)
 (funcal reg4)
)

(pdl_struct icmp_echo
 (pdl_field code 8 dec)
  (pdl_name som_echo 0 nil nil)
 (funcal 'icmp_cks)
)

(pdl_struct icmp_cks
 (pdl_field cks 16 hex)
 (pdl_field unused 32 hex)
 (funcal ???)
)

 (funcal 'ip)
)

(pdl_struct dst_unreach
 (pdl_field code 8 dec)
  (pdl_name net_unreachable 0 nil nil)
  (pdl_name host_unreachable 1 nil nil)
  (pdl_name protocol_unreach 2 nil nil)
  (pdl_name port_unreachable 3 nil nil)
  (pdl_name need_frag_but_DF 4 nil nil)
  (pdl_name src_route_failed 5 nil nil)
 (funcal 'icmp_cks)
)

(pdl_struct src_quench
 (pdl_field code 8 dec)
  (pdl_name src_too_fast 0 nil nil)
 (funcal 'icmp_cks)
)

(pdl_struct icmp_redirect
 (pdl_field code 8 dec)
  (pdl_name redirect_net 0 nil nil)
  (pdl_name redirect_host 1 nil nil)
  (pdl_name redirect_srv_net 2 nil nil)
  (pdl_name redirect_srv_host 3 nil nil)
 (pdl_field cks 16 hex)
 (pdl_field err_ptr 16 hex)
 (pdl_field unused 24 hex)
 (funcal ???)
)

(pdl_struct icmp_timex
 (pdl_field code 8 dec)
  (pdl_name time_live_exed 0 nil nil)
  (pdl_name frag_reassm_exed 1 nil nil)
 (funcal 'icmp_cks)
)

(pdl_struct bad_param
 (pdl_field code 8 dec)
  (pdl_name bad_param_val 0 nil nil)
 (pdl_field cks 16 hex)
 (pdl_field err_ptr 16 hex)
 (pdl_field unused 24 hex)
 (funcal ???)
)

(pdl_struct icmp_time
 (pdl_field code 8 dec)
  (pdl_name som_time 0 nil nil)
 (pdl_field cks 16 hex)
 (pdl_field id 8 hex)
 (pdl_field seq 8 hex)
 (pdl_field originate 32 dec)
 (pdl_field receive 32 dec)
 (pdl_field transmit 32 dec)
 (thats_all)
)

(pdl_struct icmp_info
 (pdl_field code 8 dec)
  (pdl_name som_type 0 nil nil)
 (pdl_field cks 16 hex)
 (pdl_field id 8 hex)
 (pdl_field seq 8 hex)
)

(pdl_struct udp
 (pdl_field src_port 16 dec)
 (pdl_field dst_prot 16 dec)
 (pdl_field len 16 dec)
 (pdl_field cks 16 hex)
)

(pdl_struct arp
 (pdl_field ar_hrd 16 dec)
  (pdl_name hrd_ab 3 nil nil)
 (pdl_field ar_pro 16 dec)
  (pdl_name dod_ip 2048 nil nil)
 (pdl_field ar_hln 8 dec)
 (pdl_field ar_pln 8 dec)
 (pdl_field ar_op 16 dec)
  (pdl_name op_req 1 nil nil)
  (pdl_name op_reply 2 nil nil)
 (pdl_field ar_s_anet 16 dec)
 (pdl_field ar_s_node 8 dec)
 (pdl_field ar_s_port 8 dec)
 (pdl_field ar_spa 32 ip_addr)
 (pdl_field ar_t_anet 16 dec)
 (pdl_field ar_t_node 8 dec)
 (pdl_field ar_t_port 8 dec)
 (pdl_field ar_tpa 32 ip_addr)
 (thats_all)
)

(pdl_struct lddp
 (pdl_field 0 2 hex)
 (pdl_field hop 4 dec)
 (pdl_field ddplen 10 dec)
 (pdl_field cks 16 hex)
 (pdl_field dnet 16 dec)
 (pdl_field snet 16 dec)
 (pdl_field dnod 8 dec)
 (pdl_field snod 8 dec)
 (pdl_field dsok 8 dec)
 (funcal ???)
 (pdl_field ssok 8 dec)
 (funcal ???)
 (pdl_field ddpty 8 noprint :value_to reg3)
 (funcal ???)
)

(pdl_struct mazewp
 (pdl_field 0 6 hex)
 (pdl_field mazlen 10 dec)
)

(pdl_struct misc_counts
 (pdl_field misc 8 hex :counter cnt4)
  (pdl_name crc_ok 0x0 nil nil :on_scope)
  (pdl_name crc_bad 0x1 nil nil)
  (pdl_name overrun 0x2 nil nil)
  (pdl_name no_abort 0x3 nil nil)
  (pdl_name tooshort 0x4 nil nil)
)